home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Moon Map.gt5 < prev    next >
Encoding:
Text File  |  2003-08-12  |  6.3 KB  |  123 lines
  1. OpenWorkspace  "moon.ws5"
  2. '---- standard prologue
  3. Set wnd = getWindow(getWindowcount())
  4. Set Camera = wnd.camera
  5. Set theTime = camera.time
  6. Set Direction = camera.Direction
  7. Set Location = camera.Location
  8. wnd.MDIWindow.State = SW_MAXIMIZE
  9.  
  10. set pl =PlayerWindow
  11. 'pl.top=450
  12. pl.top=Screen.height-150
  13. pl.left=0
  14.  
  15.  NewFrame
  16.  Location.wnd.left = Screen.width-theTime.wnd.width-5
  17.  set wnd2 = CreateTextWindow
  18.  wnd2.Locate 0,0,225,115
  19.  wnd2.LoadFile "text1.html"
  20.  wnd2.Setcaption "New Map of the Moon in RedShift"
  21.  wnd2.Show
  22. settimemark
  23. waitfortime 7000
  24.  wnd2.Setcaption "Far View"
  25.  wnd2.LoadFile "text2.html"
  26.  
  27. ' for i = 0 to 9: Location.Distance=Location.Distance-Location.DistStep: next 'i
  28.  
  29.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  30.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  31.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  32.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  33.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  34.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  35.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  36.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  37.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  38.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  39.  
  40.  
  41.  
  42.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  43.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  44.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  45.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  46.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  47.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  48.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  49.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  50.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  51.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  52.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  53.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  54.  Location.Distance=Location.Distance-Location.DistStep : UpdateWindows
  55.  
  56.  
  57.  NewFrame
  58.  
  59. waitfortime 7000
  60.  wnd2.LoadFile "text3.html"
  61.  wnd2.Setcaption "Close View"
  62.  
  63.  
  64. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  65. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  66. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  67. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  68. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  69. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  70. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  71. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  72. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  73. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  74. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  75. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  76. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  77. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  78. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  79. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  80. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  81. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  82. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  83. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  84. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  85.  
  86.  
  87.  
  88. ' for i = 0 to 19:Location.Longitude = Location.Longitude+Location.StepLongitude:next
  89.  
  90. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  91. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  92. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  93. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  94. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  95. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  96. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  97. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  98. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  99. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  100. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  101. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  102. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  103. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  104. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  105. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  106. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  107. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  108. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  109. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  110. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  111. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  112. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  113. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  114. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  115. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  116. Location.Longitude = Location.Longitude+Location.StepLongitude : UpdateWindows
  117. waitfortime 7000
  118.  wnd2.Close
  119.  
  120.  pause 1000
  121.  
  122. ' end recording
  123.